home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / menu_pgm / send_fe1 / textin2.dif < prev   
Encoding:
Text File  |  1990-08-23  |  2.1 KB  |  56 lines
  1.  
  2. I asked Ethan Weiner of Crescent Software whether it was OK to include
  3. the modified TEXTIN.BAS file (TEXTIN2.BAS) with this distribution. It is
  4. Crescent Software's policy that this is against their best interests ... I see
  5. their point, and agree with it. Instead, the following text is the output of
  6. the DOS FC (FileCompare) utility run with the /c /L /L300 and /n parameters
  7. asserted to create an ASCII difference file between my modified TEXTIN, and the
  8. original. QuickPack Professional users who wish to recompile this program will
  9. have to create a TEXTIN2.BAS file from TEXTIN.BAS, and add these lines.
  10.  
  11. ***** textin2.bas
  12.     3:  'Copyright (c) 1987 - 1990 Ethan Winer
  13.     4:  'minor changes to ExitCode to allow sensing of function keys
  14.     5:  '08/21/90
  15.     6:  
  16. *****
  17.  
  18. ***** c:\pro\basdemo\textin.bas
  19.    26:  '   2 = Esc key pressed
  20.    27:  '
  21. ***** textin2.bas
  22.    28:  '   2 = Esc key pressed
  23.    29:  '   59 to 68 = raw F1 to F10 scan code, et al.
  24.    30:  '
  25. *****
  26.  
  27. ***** textin2.bas
  28.    82:  
  29.    83:        SELECT CASE a$                    ' add-on to QPRO routine 08/21/90
  30.    84:            CASE CHR$(59) TO CHR$(68)     ' send function key scan as exit code
  31.    85:                ExitCode = ASC(RIGHT$(a$, 1))
  32.    86:                GOTO TFKey
  33.    87:            CASE CHR$(84) TO CHR$(93)     ' shifted function key
  34.    88:                ExitCode = ASC(RIGHT$(a$, 1))
  35.    89:                GOTO TFKey
  36.    90:            CASE CHR$(94) TO CHR$(103)    ' control + function key
  37.    91:                ExitCode = ASC(RIGHT$(a$, 1))
  38.    92:                GOTO TFKey
  39.    93:            CASE CHR$(104) TO CHR$(113)   ' alt + function key
  40.    94:                ExitCode = ASC(RIGHT$(a$, 1))
  41.    95:                GOTO TFKey
  42.    96:            CASE ELSE
  43.    97:        END SELECT
  44.    98:  
  45.    99:     GOTO TGetKey                         'none of the above, get again
  46. *****
  47.  
  48. ***** textin2.bas
  49.   357:  
  50.   358:  TFKey:
  51.   359:                                          ' label for clarity only. Send
  52.   360:     GOTO TEnter                          ' scan code to TEnter as ExitCode
  53.   361:  
  54. *****
  55.  
  56.